! This file is part of PanGu. All rights reserved.
program main

    use seakeeping_error, only: panic
    use pangu_statement, only: pre_start, post_end
    use pangu, only: get_section_load
    character(:), allocatable :: error !! 错误信息

    print '(a/)', pre_start(application='PanGu', version='1.0.1', text='Calculation of Ship Section Load')

    call get_section_load('pangu.nml', &
                          'res', 'load.csv', 'acceleration.csv', error)
    if (allocated(error)) then
        call panic(error, code=1)
    end if

    print '(/a)', post_end(application='PanGu', res_dir='res')

end program main
